home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / suchtools / find.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-07-19  |  1.5 KB  |  47 lines
  1. /*ArexxFind (c) Frank Röchter*/
  2. if ARG(1)="all" then do
  3.    Say "ACHTUNG !!! Wenn Sie ungefähr wissen, in welche Kategorie Ihr Verzeichnis"
  4.    Say "gehört, verwenden Sie eines der speziellen Suchtools. Das ist schneller !"
  5. end
  6. Say "Sie können mehrere Suchbegriffe angeben, indem Sie sie durch ein"
  7. Say "Leerzeichen trennen. Beispiel "Disk Backup" listet alle Verzeichnisse"
  8. Say "deren Pfad Disk und Backup im Namen enthält."
  9. Say "Nach welchem Namen wollen Sie Suchen ?"
  10. Pull find
  11. if find~="" then do
  12.    find=upper(find)
  13.    Say "Bitte warten..."
  14.    open("I","Amiga-Tools-5:searchtools/"||ARG(1)||".qfind","READ")
  15.    t=time("S")
  16.    open("O","t:found"||t,"WRITE")
  17.    found=0
  18.    Writeln("O","Suchbegriff(e): "||find)
  19.    do while eof("I")=0
  20.       line=readln("I")
  21.       line2=upper(line)
  22.       W=words(find)
  23.       do while w>0
  24.          idx=index(line2,word(find,w))
  25.          if idx~=0 then do
  26.             w=w-1
  27.             if w=0 then do
  28.                if found=0 then do
  29.                   Writeln("O","In folgenden Verzeichnisnamen ist Ihr Suchbegriff enthalten:")
  30.                   Writeln("O","")
  31.                   found=1
  32.                end
  33.                Writeln("O",line)
  34.             end
  35.          end
  36.          if idx=0 then w=0
  37.       end
  38.    end
  39.    if found=0 then do
  40.       Writeln("O","Leider existiert kein Verzeichnis das Ihren Suchbegriff enthält.")
  41.    end
  42.    Close("I")
  43.    Close("O")
  44.    ADDRESS COMMAND "Amiga-Tools-5:c/Next t:found"||t
  45.    ADDRESS COMMAND "delete >nil: t:found"||t
  46. end
  47.